home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / debugger / ddd-1.000 / ddd-1 / ddd-1.4b / ddd / header.ps < prev    next >
Encoding:
Text File  |  1995-11-21  |  7.4 KB  |  326 lines
  1. % $Id: header.ps,v 1.2 1995/11/21 13:51:51 zeller Exp $
  2. % Header for NORA PostScript Box output
  3.  
  4. % Copyright (C) 1995 Technische Universitaet Braunschweig, Germany.
  5. % Written by Christian Lindig (lindig@ips.cs.tu-bs.de).
  6. % 
  7. % This file is part of the DDD Library.
  8. % 
  9. % The DDD Library is free software; you can redistribute it and/or
  10. % modify it under the terms of the GNU Library General Public
  11. % License as published by the Free Software Foundation; either
  12. % version 2 of the License, or (at your option) any later version.
  13. % 
  14. % The DDD Library is distributed in the hope that it will be useful,
  15. % but WITHOUT ANY WARRANTY; without even the implied warranty of
  16. % MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  17. % See the GNU Library General Public License for more details.
  18. % 
  19. % You should have received a copy of the GNU Library General Public
  20. % License along with the DDD Library -- see the file COPYING.LIB.
  21. % If not, write to the Free Software Foundation, Inc.,
  22. % 675 Mass Ave, Cambridge, MA 02139, USA.
  23. % 
  24. % DDD is the data display debugger.
  25. % For details, see the DDD World-Wide-Web page, 
  26. % `http://www.cs.tu-bs.de/softech/ddd/',
  27. % or send a mail to the DDD developers at `ddd@ips.cs.tu-bs.de'.
  28.  
  29. %
  30. % make all definitions local to the noradict dictionary
  31. %
  32.  
  33. /noradict 25 dict def 
  34.  
  35. noradict begin        % make dict active 
  36.  
  37. %
  38. % global variables
  39. %
  40.  
  41. /fontSize+ 12 def
  42. /font+ /Courier def  
  43.  
  44. %
  45. % some small utilities
  46. %
  47.  
  48. /cm { 28.34646 mul } bind def
  49.  
  50. % isolatin1*
  51. % reencode a font to ISO Latin 1 encoding
  52. %
  53. % newfont table oldfont isolatin1*
  54.  
  55. /isolatin1* {
  56.     findfont
  57.     dup maxlength dict begin
  58.     {
  59.         1 index /FID ne { def } { pop pop } ifelse
  60.     } forall
  61.     /Encoding exch def
  62.     dup /FontName exch def
  63.     currentdict end definefont pop
  64. } bind def
  65.  
  66. %
  67. % define the ISO Latin 1 encoding of a font ..
  68. %
  69.  
  70. /isotable[
  71. /.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
  72. /.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
  73. /.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
  74. /.notdef/.notdef/.notdef/.notdef/.notdef/space/exclam/quotedbl/numbersign
  75. /dollar/percent/ampersand/quoteright/parenleft/parenright/asterisk/plus/comma
  76. /hyphen/period/slash/zero/one/two/three/four/five/six/seven/eight/nine/colon
  77. /semicolon/less/equal/greater/question/at/A/B/C/D/E/F/G/H/I/J/K/L/M/N/O/P/Q/R/S
  78. /T/U/V/W/X/Y/Z/bracketleft/backslash/bracketright/asciicircum/underscore
  79. /quoteleft/a/b/c/d/e/f/g/h/i/j/k/l/m/n/o/p/q/r/s/t/u/v/w/x/y/z/braceleft/bar
  80. /braceright/asciitilde/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
  81. /.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
  82. /.notdef/dotlessi/grave/acute/circumflex/tilde/macron/breve/dotaccent/dieresis
  83. /.notdef/ring/cedilla/.notdef/hungarumlaut/ogonek/caron/.notdef/exclamdown/cent
  84. /sterling/currency/yen/brokenbar/section/dieresis/copyright/ordfeminine
  85. /guilsinglleft/logicalnot/hyphen/registered/macron/degree/plusminus/twosuperior
  86. /threesuperior/acute/mu/paragraph/periodcentered/cedilla/onesuperior
  87. /ordmasculine/guilsinglright/onequarter/onehalf/threequarters/questiondown
  88. /Agrave/Aacute/Acircumflex/Atilde/Adieresis/Aring/AE/Ccedilla/Egrave/Eacute
  89. /Ecircumflex/Edieresis/Igrave/Iacute/Icircumflex/Idieresis/Eth/Ntilde/Ograve
  90. /Oacute/Ocircumflex/Otilde/Odieresis/multiply/Oslash/Ugrave/Uacute/Ucircumflex
  91. /Udieresis/Yacute/Thorn/germandbls/agrave/aacute/acircumflex/atilde/adieresis
  92. /aring/ae/ccedilla/egrave/eacute/ecircumflex/edieresis/igrave/iacute
  93. /icircumflex/idieresis/eth/ntilde/ograve/oacute/ocircumflex/otilde/odieresis
  94. /divide/oslash/ugrave/uacute/ucircumflex/udieresis/yacute/thorn/ydieresis
  95. ] def
  96.  
  97. %
  98. % ycorrect*
  99. % the reference point of a string ist NOT its lower left corner but 
  100. % its baseline. Therefor the y coordinate must be corrected. The
  101. % correction for the current font is returned.
  102. % ycorrect* y
  103. % 
  104.  
  105. /ycorrect* {
  106.     currentfont /FontBBox get
  107.     aload pop pop pop
  108.     currentfont /FontMatrix get dtransform
  109.     exch pop
  110. } def 
  111.  
  112. %
  113. % text*
  114. % print out a string and make sure not to require more space than
  115. % specified.
  116. % font xsize ysize xorigin yorigin (string) text*
  117.  
  118. /text* {
  119.  
  120.     /string+ exch def        % set up some variables ..
  121.     moveto                % move to (xorigin,yorigin)
  122.     /ysize+ exch def
  123.     /xsize+ exch def
  124.     /thefont+ exch def
  125.  
  126.     % right font allready selected ?
  127.     
  128.     thefont+ font+ ne 
  129.     ysize+ fontSize+ ne
  130.     or {    
  131.         % set up the right font - reencode it    
  132.         
  133.         /Symbol thefont+ eq 
  134.         {
  135.             thefont+ findfont
  136.         }{
  137.  
  138.             /isofont+ isotable thefont+ isolatin1*    
  139.             /isofont+ findfont
  140.         }ifelse
  141.  
  142.         [ysize+ 0 0 ysize+ neg 0 0] makefont
  143.         setfont
  144.         
  145.         /font+ thefont+ def
  146.         /fontSize+ ysize+ def
  147.     } if
  148.  
  149.     % correct current point 
  150.  
  151.     0 ycorrect* neg rmoveto
  152.  
  153.     % string too long ? scale it down ...
  154.     % the actual font is scaled. There is a good chance,
  155.     % that this will not happen too often when the font is not
  156.     % changed during the calls of text*
  157.  
  158.     xsize+ string+ stringwidth pop div dup dup
  159.     1 lt {
  160.         
  161.         0 0 1 0 0 6 array astore currentfont exch 
  162.         makefont setfont
  163.         pop
  164.     }{ 
  165.         %
  166.         % string too short ... scale it up
  167.         %
  168.  
  169.         1.05 gt {
  170.             0 0 1 0 0 6 array astore currentfont exch 
  171.             makefont setfont    
  172.         }{
  173.             pop
  174.  
  175.         } ifelse
  176.     } ifelse
  177.     
  178.     string+ show
  179.  
  180. } bind def
  181.  
  182.  
  183.     
  184. % 
  185. % arrowline*
  186. % draw a line of given width with an arrow at its end
  187. % len gives the height of the triangle forming the head of the arrow
  188. % and angle the angle at its top
  189. %    
  190. % angle len  x1 y1 x2 y2 linewidth arrowline*
  191. %
  192.  
  193. /arrowline* {
  194.     setlinewidth            % angle len x1 y1 x2 y2
  195.     /y2 exch def
  196.     /x2 exch def
  197.     /y1 exch def
  198.     /x1 exch def
  199.     /len+ exch def            % height of triangle
  200.  
  201.     /alpha+ 
  202.         y2 y1 sub        % define alpha+
  203.         x2 x1 sub
  204.         atan
  205.     def
  206.  
  207.     /base+                % define half of baseline
  208.         exch 
  209.         2 div dup        % angle angle
  210.         sin exch cos          % sin(angle) cos(angle)
  211.         div            % tan(angle)
  212.         len+
  213.         mul            % half of baseline
  214.     def  
  215.     
  216.     newpath                % draw the line
  217.     x1 y1 moveto 
  218.     x2 len+ alpha+ cos mul sub     % shorten the line to the end  
  219.     y2 len+ alpha+ sin mul sub     % of the triangle
  220.     lineto
  221.     stroke        
  222.  
  223.     gsave                % set the origin to the head of
  224.     0 setlinewidth            % the arrow and rotate the system
  225.     x2 y2 
  226.     translate            % origin now at x2 y2
  227.  
  228.     alpha+ 90 sub rotate         % rotate the system
  229.  
  230.     newpath                % draw a triangle
  231.     0 0 moveto
  232.     base+ len+ neg rlineto
  233.     base+ 2 mul neg 0 rlineto
  234.     closepath
  235.     fill
  236.     
  237.     grestore
  238. } bind def
  239.  
  240. % 
  241. % line*
  242. % draw a line of given width from (x1,y1) to (x2,y2)
  243. % x1 y1 x2 y2 width line*
  244. %
  245.  
  246. /line* {
  247.     setlinewidth    % x1 y1 x2 y2
  248.     newpath
  249.     4 2 roll     % x2 y2 x1 y1
  250.     moveto        % x2 y2
  251.     lineto        
  252.     stroke
  253. } bind def
  254.  
  255. %
  256. % clean*
  257. % fill a box given by four points with white colour ..
  258. % x1 y1 x2 y2 x3 y3 x4 y4 clean*
  259. %
  260.  
  261. /clean* {
  262.     gsave
  263.     1 setgray
  264.     0 setlinewidth
  265.     newpath
  266.     moveto  lineto  lineto lineto
  267.     closepath
  268.     fill
  269.     grestore
  270. } bind def
  271.  
  272. %
  273. % box*
  274. % fill a box given by four points
  275. % x1 y1 x2 y2 x3 y3 x4 y4 box*
  276. %
  277.  
  278. /box* {
  279.     0 setlinewidth
  280.     newpath
  281.     moveto     lineto     lineto lineto
  282.     closepath
  283.     fill
  284. } bind def
  285.  
  286. %
  287. % arc*
  288. % draw an ellipse with center (cx,cy), diameter dx dy, starting at start
  289. % and ending at end.
  290. % start end dx dy cx cy width ARC*
  291. %
  292.  
  293. /arc* {
  294.     gsave
  295.     setlinewidth
  296.     translate
  297.     newpath
  298.     dup 3 1 roll        % start end dy dx dy
  299.     div 1 scale        % dy dx/dy 1 scale => start end dy
  300.     
  301.     0 exch  0 exch        % start end 0 0 dy 
  302.     5 -2 roll         % 0 0 dy start end
  303.  
  304.     dup
  305.     0 eq {            % replace 0 by 360
  306.         pop 
  307.         360
  308.     } if
  309.     arc
  310.     stroke
  311.     grestore
  312. } bind def
  313.  
  314.  
  315. %
  316. % set up the right font to the right size
  317. %
  318.  
  319. /isofont+ isotable font+ isolatin1*     % reencode font+
  320.                     % and make it the current font
  321. /isofont+ findfont
  322. [fontSize+ 0 0 fontSize+ neg 0 0] makefont
  323. setfont
  324.  
  325. %%EndProlog
  326.